Tabla de contenidos

output:
  html_document:
    toc: true             # Crea tabla de contenido
    toc_depth: 2          # Niveles de la tabla
    number_sections: true # Enumera las secciones
    toc_float:            # Tabla de contenido flotante siempre visible
      collapsed: false    # Aparecen solo con los encabezados de nivel superior
      smooth_scroll: true # Desplazamientos "animados" en vez de directos

Temas y formato

html_document:
    theme: flatly       # Existen muchos temas (sandstone, cosmo, darkly ...)
    highlight: espresso # Existen muchos temas (haddock, monochrome, tango ...)

Encabezados

# Titulo nivel 1 (H1)
## Titulo nivel 2 (H2)
### Titulo nivel 3 (H3)

Hola

Cara

Cola

Tips

Ctrl + Alt + I insentar un nuevo “code chunk”.
Doble espacio para lineas diferentes <br> para insertar linea en blanco

Cabeceras chuks

echo = FALSE Oculta el código (Lo ejecuta y produce los resultados).
eval = FALSE Muestra el código (No lo ejecuta).
include = FALSE Ejecuta el código (Elimina la salida).
warning = FALSE Oculta las advertencias de los paquetes y de las funciones.
message = FALSE Oculta los mensajes de los paquetes y funciones.
comment = "<<>>" Marca los comentarios como queramos (# por defecto)
results = "hide" Oculta la salida impresa.
fig.show = “hide” Oculta gráficos.


Más info : https://yihui.org/knitr/options/

Se pueden añadir:

  • Notas
    Esta nota^[es un ejemplo]
    Esta nota1


  • Gif
    <img src="https://media.giphy.com/media/3ohzdPGmrhcqwsKcFi/giphy.gif" width="250">


  • Videos
    <iframe width="600" height = "420" src="https://www.youtube.com/embed/AhUCVYqXWoE"></iframe>

Tabla interactiva

DT::datatable(trees,
              class = "nowrap",
              options = list(autoWidth = TRUE,
                             columnDefs = list(list(
                               width = "50%",
                               targets = 0))))

Gráficos interactivos

Opción ver gráficos durante pruebas
Tools->Global options-> RMarkdown -> Show output…

data(mtcars)
plot(mtcars$wt, mtcars$mpg)

Plotly

https://plotly-r.com/index.html

library(plotly)
library(ggplot2)
data <- mtcars
figura <- ggplot(mtcars, aes(wt,
                             mpg,
                             color = qsec,
                             size = qsec)) +
  geom_point()

ggplotly(figura)
figura_2 <- ggplot(mtcars, aes(as.factor(cyl),
                               mpg)) +
  geom_boxplot()

ggplotly(figura_2)

Mapas

Plotly

world <- rnaturalearth::ne_countries(scale = "medium",
                                     returnclass = "sf")
p <-  ggplot(data = world, aes(fill = geounit,
                               alpha = economy)) +
  geom_sf() +
  scale_fill_viridis_d() +
  theme(legend.position = "none")

ggplotly(p)

Leaflet

library(leaflet)

m <- leaflet(world) %>% 
  setView(lng = -3.689, 
          lat = 40.440, 
          zoom = 6) %>% 
  addMarkers(lng = -3.689, 
          lat = 40.440) %>% 
  addPolygons(opacity = 1,
              color = "white") %>% 
  addTiles() %>% 
  addProviderTiles("Esri.WorldImagery")

m

La biblia

<img src="https://bookdown.org/yihui/rmarkdown-cookbook/images/cover.png" width="500px">

https://bookdown.org/yihui/rmarkdown-cookbook/

  1. es un ejemplo↩︎